#!/usr/bin/perl -w

$machine=$ARGV[0];
if(! -f "$::ENV{TRUECL_CFG}/vm/tmp-$machine") {
	exit(1);
}

if(!open(FD,"$::ENV{TRUECL_CFG}/vm/tmp-$machine")) {
	print STDERR "ERROR: Failed to open machine info file for '$machine'.\n";
	exit(2);
}
$x=<FD>; chomp $x; close(FD);
if($x eq "1") {
	exit(0);
} else {
	exit(1);
}
